﻿Imports Aras.IOM
Imports System.Xml


Partial Class GetDocuments
    Inherits System.Web.UI.Page

    Dim Dossier_id As String = ""



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub


    Public Function RecupProjects() As String

        Dim resultat As String

        'récupération dossiers

        If Session("ConnecState") = True Then
            Dim connec As ConnecteurAras = New ConnecteurAras(Session("LOGON_NAME"), Session("LOGON_PASS"))
            resultat = connec.getProjects(connec.IdentityID)
        Else
            resultat = "Erreur Login"
        End If

        Return resultat
        

    End Function


End Class
